	;; this is a portion of the Cinepak calling routine for the Sub
	;; from Ecco : The Tides of Time

	MOVE.W   #0x34,(0x77BE).L
	JSR      (0x77C2).L
	MOVE.W   #0x1313,(0xFF802E).L
Label01FA:	
	CMPI.W   #0x1313,(0xFF801E).L
	BNE.S    Label01FA
	MOVE.L   0x82578,(0xFF8024).L
	MOVE.W   #0x0,(0x6FFE).L
	MOVEA.L  #0x80000,A1
	MOVEA.L  #0x70000,A0
	MOVE.W   #0x1FFF,D0
Label0226:	
	MOVE.L   (A1)+,(A0)+
	DBF      D0,Label0226
	MOVEA.L  #0x88000,A1
	MOVEA.L  #0x78000,A0
	MOVE.W   #0x9FF,D0
Label023C:	
	MOVE.L   (A1)+,(A0)+
	DBF      D0,Label023C
	ORI.W    #0x4,(0xFF8002).L
	MOVE.L   0x4(A7),D0
	MOVEM.L  D3-D7/A2-A6,-(A7)
	MOVE.W   #0x1515,(0xFF802E).L
Label025A:	
	CMPI.W   #0x1515,(0xFF801E).L
	BNE.S    Label025A
	MOVE.L   #0x7370,-(A7)
	MOVE.L   #0x1,-(A7)
	MOVE.L   #0x20,-(A7)
	MOVE.L   #0xC000,-(A7)
	MOVE.L   #0x0,-(A7)
	MOVE.L   #0x4,-(A7)
	MOVE.L   #0x4B000,-(A7)
	MOVE.L   #0xF000,-(A7)
	MOVE.L   D0,-(A7)
	MOVE.W   #0x0,-(A7)
	JSR      0x78000
	ADDA.L   #0x26,A7
Label02A6:
	MOVE.W   (0xFF801A).L,D0
	ANDI.W   #0xF0F0,D0
	BNE.S    Label02C0
	MOVE.W   #0x1,-(A7)
	JSR      0x78000
	ADDQ.L   #2,A7
	BGE.S    Label02A6
Label02C0:
	MOVE.W   #0x2,-(A7)
	JSR      0x78000
	ADDQ.L   #2,A7
	MOVE.W   #0x1616,(0xFF802E).L
Label02D4:	
	CMPI.W   #0x1616,(0xFF801E).L
	BNE.S    Label02D4
	EORI.W   #0x4,(0xFF8002).L
	ORI.W    #0x1,(0xFF8002).L
Label02EE:	
	MOVE.W   (0xFF8002).L,D0
	ANDI.B   #0x3,D0
	CMPI.B   #0x1,D0
	BNE.S    Label02EE
	MOVE.W   #0x1717,(0xFF802E).L
Label0306:	
	CMPI.W   #0x1717,(0xFF801E).L
	BNE.S    Label0306
Label0310:	
	MOVE.W   (0xFF8002).L,D0
	ANDI.B   #0x3,D0
	CMPI.B   #0x2,D0
	BNE.S    Label0310
	MOVE.W   #0x1212,(0xFF802E).L
	MOVEA.L  #0x70000,A1
	MOVEA.L  #0x80000,A0
	MOVE.W   #0x1FFF,D0
Label0338:	
	MOVE.L   (A1)+,(A0)+
	DBF      D0,Label0338
	MOVE.W   #0x1818,(0xFF802E).L
Label0346:	
	CMPI.W   #0x1818,(0xFF801E).L
	BNE.S    Label0346
	MOVE.W   #0x1,(0x6FFE).L
	MOVE.W   #0x1919,(0xFF802E).L
Label0360:	
	CMPI.W   #0x1919,(0xFF801E).L
	BNE.S    Label0360
	MOVEM.L  (A7)+,D3-D7/A2-A6
	RTS
